unit UAgregar_Entidad;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniEdit, uniButton, uniLabel, uniGUIBaseClasses,
  uniPanel, uniRadioButton, uniGroupBox, uniDBEdit, uniMemo, uniDBMemo;

type
  TUAgregarEntidad = class(TUniForm)
    pnlCargaDatos: TUniPanel;
    lblNombreAsociacion: TUniLabel;
    btnGuardarAsociacion: TUniButton;
    btnCancelarAsociacion: TUniButton;
    lblDescripcion: TUniLabel;
    mmDescripcion: TUniDBMemo;
    lblDescuento: TUniLabel;
    dbDescuento: TUniDBEdit;
    gbxEstado: TUniGroupBox;
    rbActivo: TUniRadioButton;
    rbInactivo: TUniRadioButton;
    lblEstado: TUniLabel;
    dbAgregarAsociacion: TUniEdit;
    pnlTitulo: TUniPanel;
    lblTitulo: TUniLabel;
    UniLabel5: TUniLabel;
    procedure btnGuardarAsociacionClick(Sender: TObject);
    procedure btnCancelarAsociacionClick(Sender: TObject);
    procedure UniFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function UAgregarEntidad: TUAgregarEntidad;

implementation

{$R *.dfm}

uses
  MainModule, TuristikUt;

function UAgregarEntidad: TUAgregarEntidad;
begin
  Result := TUAgregarEntidad(UniMainModule.GetFormInstance(TUAgregarEntidad));
end;

procedure TUAgregarEntidad.btnCancelarAsociacionClick(Sender: TObject);
begin
  Close;
end;

procedure TUAgregarEntidad.btnGuardarAsociacionClick(Sender: TObject);
begin
  vEntidad := dbAgregarAsociacion.Text;
  Close;
end;

procedure TUAgregarEntidad.UniFormCreate(Sender: TObject);
begin
  dbAgregarAsociacion.Clear;
end;

end.
